使用Redim动态数组即可。

请参阅     特性

数组的声明方式和其它的变量是一样的，它可以使用 Dim、Static、Private 或 Public 语句来声明。标量变量（非数组）与数组变量的不同在于通常必须指定数组的大小。若数组的大小被指定的话，则它是个固定大小数组。若程序运行时数组的大小可以被改变，则它是个动态数组。

数组是否从 0 或 1 索引是根据 Option Base 语句的设置。如果 Option Base 没有指定为 1，则数组索引从零开始。

下面这行代码声明了一个固定大小的数组，它是个 11 行乘以 11 列的 Integer 数组：

第一个参数代表的是行；而第二个参数代表的是列。

与其它变量的声明一样，除非指定一个数据类型给数组，否则声明数组中元素的数据类型为 Variant。数组中每个数组的数字型 Variant 元素占用 16 个字节。每个字符串型 Variant 元素占用 22 个字节。为了尽可能使写的代码简洁明了，则要明确声明的数组为某一种数据类型而非 Variant。下面的这几行代码比较了几个不同数组的大小：

数组变量的最大值，是以的操作系统与有多少可用内存为基础。若使用的数组大小超过了系统中可用内存总数的话，则速度会变慢，因为必须从磁盘中读写回数据。

若声明为动态数组，则可以在执行代码时去改变数组大小。可以利用 Static、Dim、Private 或 Public 语句来声明数组，并使括号内为为空，如下示例所示。

注意 可以在过程中使用 ReDim 语句来做隐含性的数组声明。当使用 ReDim 语句时要小心点，不要拼错数组的名称。否则即使在模块中有包含 Option Explicit 语句，仍然会因此而生成第二个数组。

对于过程中的数组范围，可以使用 ReDim 语句去改变它的维数，去定义元素的数目以及每个维数的底层绑定。每当需要时，可以使用 ReDim 语句去更改动态数组。然而当做这个动作时，数组中存在的值会丢失。若要保存数组中原先的值，则可以使用 ReDim Preserve 语句来扩充数组。例如，下列的语句将 varArray 数组扩充了10 个元素，而原本数组中的当前值并没有消失掉。

注意 当对动态数组使用 Preserve 关键字时，只可以改变最后维数的上层绑定，而不能改变维数的数目。

新建工作簿：

操作方法：引用多张工作表

可用 Array 函数标识一组工作表。以下示例选定了活动工作簿中的三张工作表。

操作方法：通过索引号引用工作表

索引号是分配给工作表的连续数字，基于其工作表标签在同一类型的工作表之间的位置（按从左到右计数）。下面的过程使用 Worksheets 属性激活活动工作簿上的第一张工作表。

如果要处理所有类型的工作表（工作表、图表、模块和对话框编辑表），可使用 Sheets 属性。以下过程激活工作簿中的第四张工作表。

如果移动、添加或删除工作表，索引顺序可能会发生变化。

操作方法：通过名称引用工作表

使用 Worksheets 属性和 Charts 属性可通过名称来标识工作表。下述语句激活活动工作簿中的不同工作表。

使用 Sheets 属性可以返回工作表、图表、模块或对话框编辑表；Sheets 集合包含所有这些内容。本示例将激活活动工作簿中的名为“Chart1”的工作表。

嵌入到工作表中的图表是 ChartObjects 集合的成员，而那些位于单独的工作表上的图表则属于 Charts 集合。

打开工作簿

用 Open 方法打开一个工作簿时，该工作簿将成为 Workbooks

操作方法：引用工作表上的所有单元格

如果对工作表应用 Cells 属性时不指定索引号，该方法将返回代表工作表上所有单元格的 Range 对象。以下 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。

操作方法：使用 A1 表示法引用单元格和区域

可使用 Range 属性引用 A1 引用样式中的单元格或单元格区域。下述子例程将单元格区域 A1:D5 的字体设置为加粗。

下表演示了使用 Range 属性的一些 A1 样式引用。

引用

含义

Range("A1")

单元格 A1

Range("A1:B5")

从单元格 A1 到单元格 B5 的区域

Range("C5:D9,G9:H16")

多块选定区域

Range("A:A")

A 列

Range("1:1")

第一行

Range("A:C")

从 A 列到 C 列的区域

Range("1:5")

从第一行到第五行的区域

Range("1:1,3:3,8:8")

第 1、3 和 8 行

Range("A:A,C:C,F:F")

A 、C 和 F 列

操作方法：使用 Range 对象引用单元格

如果将对象变量设置为 Range 对象，即可用变量名轻松地操作单元格区域。

以下过程将创建对象变量 myRange，然后将活动工作簿中 Sheet1 上的区域 A1:D5 赋予该变量。随后的语句用该变量名称代替 Range 对象，以修改该区域的属性。

操作方法：使用索引号引用单元格

通过使用行列索引号，可用 Cells 属性引用单个单元格。该属性返回代表单个单元格的 Range 对象。在下例中，Cells(6,1) 返回 Sheet1 上的单元格 A6，然后将 Value 属性设置为 10。

因为可用变量替代编号，所以 Cells 属性非常适合于在单元格区域中循环，如下例中所示。

如果要同时更改某个区域中所有单元格的属性（或将方法应用于该区域中的所有单元格），请使用 Range 属性。有关详细信息，请参阅使用 A1 表示法引用单元格和区域。

操作方法：使用快捷表示法引用单元格

可用方括号将 A1 引用样式或命名区域括起来，作为 Range 属性的快捷方式。这样就不必键入单词“Range”或使用引号了，如下例中所示。

处理相对于另一个单元格的某一单元格的常用方法是使用Offset属性。下例中，将位于活动工作表上活动单元格下一行和右边三列的单元格的内容设置为双下划线格式。

注意 可录制使用 Offset属性（而不是绝对引用）的宏。在“工具”菜单上，指向“宏”，再单击“录制新宏”，然后单击“确定”，再单击录制宏工具栏上的“相对引用”按钮。

若要在单元格区域中循环，请在循环中将变量与 Cells属性一起使用。下例以 5 为步长，用 5 到 100 之间的值填充第三列的前 20 个单元格。变量counter 用作 Cells属性的行号。

代码如下：

操作方法：引用多个区域

使用适当的方法可以很容易地同时引用多个单元格区域。可用 Range 和 Union 方法引用任意组合的单元格区域；用 Areas 属性可引用工作表上选定的一组单元格区域。

通过在两个或多个引用之间插入逗号，可使用 Range 属性引用多个区域。以下示例清除了 Sheet1 上三个区域的内容。

命名区域使得用 Range 属性处理多个区域更加容易。以下示例可在所有这三个命名区域处于同一工作表时运行。

使用 Union 方法可将多个区域组合到一个 Range 对象中。以下示例创建了名为 myMultipleRange 的 Range 对象，并将其定义为区域 A1:B2 和 C3:D4 的组合，然后将该组合区域的字体设置为加粗。

可用 Areas 属性引用选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数目，如果有多个块，就显示一则警告消息。